perm filename IFASM2[S1,ALS] blob sn#404079 filedate 1978-12-16 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	    if ASM2 then
C00003 ENDMK
CāŠ—;
    if ASM2 then
	begin
	WRITELN(OUTPUT,'**************************  ;START OF  ',
		       CURPROCXN.NAM,'  ',CURPROC);
	IPTR := MAINCODE.FIRST;
	S1PC := SEG_EP_RELPC;
	while IPTR <> nil do
	    begin
	    DISASSEMBLE(S1PC,IPTR);
	    IPTR := NEXT_INSTRUCTION(IPTR)
	    end (*while IPTR <> nil*);
	WRITELN(OUTPUT);
	WRITE(OUTPUT,chr(12))	(*12 dec = 14 oct = FF (form feed) *)
	end (*if ASM then*);